home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 49 / MOBICLIC 49.ISO / pc / MOBINTRO.DIR / 00001_Script_1 next >
Text File  |  2002-07-23  |  981b  |  28 lines
  1. on exitFrame
  2.   global chemin,nivSon,cheminTextes,cheminDemo,touchesOn,gcheminExport, gcheminBibli
  3.   global gcheminerratum
  4.   set touchesOn=1
  5.   set cheminDemo = the pathName & "TLC\"
  6.   -- enregistrement des rΘpertoires originaux
  7.   if the machineType=256 then
  8.     set chemin = the pathName & "data\"
  9.     set cheminTextes=the pathName&"textes\"
  10.     set the searchPath = [chemin & "communs\"]
  11.     gcheminExport = the pathName&"DATA\DOCS_EXPORT\"
  12.     gcheminBibli = the pathName&"CYBERBIB\"
  13.     gcheminerratum = the pathName&"erratum_BD\"
  14.   else
  15.     set chemin = the pathName & "data:"
  16.     set cheminTextes=the pathName & "textes:"
  17.     gcheminExport = the pathName&"DATA:DOCS_EXPORT:"
  18.     gcheminBibli = the pathName&"CYBERBIB:"
  19.     gcheminerratum = the pathName&"erratum_BD:"
  20.     set the searchPath = [chemin & "communs:"]
  21.   end if
  22.   -- rΘglage niveau sonore
  23.   set nivSon = [256,256,256]
  24.   
  25.   
  26.   -- accΦs au film suivant
  27.   go to movie chemin & "intro.dir"
  28. end